EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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LL III] BBBBBBBB cccccccc AAAAAA LL LL GGGGGGGG 

LL M1111 BBSB8BBBB cccccccc AAAAAA LL LL GGGGGGGG 

LL II BB BB CC AA AA LL LL GG 

LL I] BB BB CC AA AA LL LL GG 

LL I] 8B BB CC AA AA LL LL GG 

LL I] BB BB CC AA AA LL LL GG 

LL I] BBBBBBBB cc AA AA LL LL GG 

LL II BBBB8BBB cc Ab AA LL LL GG 

LL I] BB BB CC AAAAAAAAAA LL LL GG GGGGGG 

LL Il BB BB CC AAAAAAAAAA LL LL GG GGGGGG 

LL I] BB BB CC AA AA LL LL GG GG cove 
LL II BB BB CC AA AA LL LL GG GG cove 
LLLLLLLLLL IIIT] BBBBBBBB CCCCCCCC AA AA LLLLLLLLLE LLLLLLLLLL GGGGGG cove 
LLLLLLLLLL III! BBBBBBEB CcCCCCCC AA AA LLLLLLLLLLE LLLLLLLLLL GGGGGG cove 
LL IIIT] SSSSSSSS 

LL HII! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL Il SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL IIIIII SSSSSSSS 

LLLLLLLLLL IHII1II SSSSSSSS 
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= Execute CALLG instruction 15-SEP-19 3:48:59 VAX/VMS Macro V04-00 Page 1 
373E= 1382 7 68: 247 YtaRT TL.S RCILIBCALLG.MAR: 1 . (1) 
TITLE LIBSFALLG - Execute CALLG inst ruction 
IDENT /1-002/ : File: LIBCALLG.MAR Edit: $8L1002 


MARAAAAAARAAALALAAALALE ALAS EASELS SLATES SEES ESE SEER REECE EEE E CERES SES Eee eee 


1-001 = Original. SBL 28-October-1981 
1-002 - Inherit caller's FU, DV, IV PSW bits. SBL 9-Nov-1981 


Beh 
2 3 
0 § 3* % 
0 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
0000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 8 1 :* ALL RIGHTS RESERVED . 
0000 11 e THIS SOFTWARE IS alee UNDER A LICENSE AND MAY BE USED AND sorite * 
8808 \§ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ~~ A THE * 
00 15 ;* INCLUSION OF THE ABOVE oe ponene NOTICE. THIS SOFTWARE OR OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY % 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8058 1g :* TRANSFERRED. * 
$ ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
i464 31 :* CORPORATION. * 
é © 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
0000 25 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
$000 38 is : 
. cs 
464 § PITIIIIIIITII LITT III TTT II ITLL TILL LiTT TT Li Litt TTT Li Tir iii Tei iiiiiie 
0000 8° 
0000 $3 
0000 0 
0000 31; 
it 3 ; ABSTRACT: 
0000 34 : This module contains LIBSCALLG, which makes the VAX CALLG instruction 
464 $2 : available as a callable procedure. 
st ? ; ENVIRONMENT: Runs at any access mode, AST Reentrant 
444 33 ; AUTHOR: Steven B. Lionel, CREATION DATE: 28-October-1981 
0000 41 ; MODIFIED BY: 
0000 4g : 
45 ; 
44; 
45; 


a 

3; FACILITY: General Utility Library 
| 
j 


ALLG instruction 1 mi tats $3 :48:39 agi ten Ma v0 
S$ SEP=-1984 11:05:47 


cro v04-00 Page § 
LIBRTL.SRCILIBCALLG.MAR; 1 (2) 


>e 
zo 
>c 
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.SBTTL DECLARATIONS 
> LIBRARY MACRO CALLS: 


SPSLDEF ; Processor Status Longword definitions 
SSFDEF 3; Stack Frame definitions 


> EXTERNAL DECLARATIONS: 
— GBL : Force all external symbols to be declared 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


[=] 

o 

S 
COOQOoooooQooQoooooooooooooooooooe 


SOoSOoOOCOCOCOOoOOOCoOOOooOOoOoOCOoOOoOoOOOOSCoOOoOoO 
MFWN OOO NAUES WN (OC OONAUES WN —-OOOon 
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eit LIBSCALLG = Execute CALLG instruction 3- SE e= 1382 1:0 23 EMTORIL.SREW TSCALLG.MAR: 1 = | 
p a4 ii -SBTTL LIBSCALLG - Execute CALLG instruction : 
hi ; FUNCTIONAL DESCRIPTION: ; 
6 1 : LIBSCALLG makes the VAX CALLG instruction available as : 
8 4 ; a callable procedure, It calls a procedure with an : 
Z : argument List specified as an array. | : 
; 5 : For more information, see the VAX-11 Architecture Handbook. ; 
000 ? : CALLING SEQUENCE: : 
0900 &9 : status.wx.v = LIBSCALLG (arg_list.rl.ra, procedure.{zem.r) . 
0990 31 : FORMAL PARAMETERS: 
00000004 0000 38 2 arg_list = 4 ; An array of longwords containing the argument : 
8808 96 ; list for the called procedure. Passed by : 
0000 95 3; reference. The first byte of the first ; 
0000 96 3; longword must contain the count of longwords : 
0000 97 3 to follow; the remaining three bytes of the : 
4 a8 : first longword must be zero. : 
00000008 0000 100 procedure = 8 ; The entry mask of the procedure to call. , 
0000 101 ; Passed by reference. ; 
$3331 : 
0000 104 } IMPLICIT INPUTS: 
0000 106 ; The caller's PSW bits FU, IV and DV are inherited for the call : 
464 4 ; to the specified procedure. : 
0000 109 : IMPLICIT OUTPUTS: ; 
0000 110; 3 
2 a : 
9009 118 > FUNCTION VALUE: ; 
0000 115: The contents of registers RO and R1 returned by the called procedure : 
0000 116; ure returned unchanged to the caller of LIBSCALLG. Therefore, the $ 
443 a 4 : function value of LIBSCALLG is the same as that of the called function. ° 
9000 119 ; SIDE EFFECTS: : 
$6 1: NONE : 
3 ii | 
0000 09 ! 5 ENTRY LIBSCALLG, “M<> ; Entry point : 
50 04 AD FFIF 8F AB 09 1 ° BICW3 #*C<PSLSM_IV!PSLSM_DV!PSLSM_FU>, SFSW_SAVE_PSW(FP), - | 
00 128 RO 3; PUt in RO the caller's PSw 
009 129 3 with only the IV, DV and FU 
45 130 3; bits copied | 
50 BB a 131 BISPSW RO : Set those bits in our PSW 
08 BC 04 86C FA 3 1 § CALLG @arg_list(AP), a@procedure(AP) ; Call procedure 
04 1 1 RET 3; return to caller | 
} 
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'%. te «END i; End of module LIBSCALLG 


LIBSCALLG 


- Execute CALLG instruction 
Symbol table 


ARG_LIST = 4444 4d 
LIBSCALLG 0 8 RG 02 
PROCEDURE = 8 : 
PSLSM_DV : 0 
PSLSM_FU : 9000 4 
orn IV = 00 ait $ 
SFSwW_SAVE_PSW = 00000004 
-oeoeeeeeeeeeoeeces + 
! Psect synopsis H 

PSECT name Allocation PSECT No. Attributes 

ABS . 00000000 < 0.2 00 ¢ 0.) NOPIC USR 

S$ 00000000 < ie O01 ¢ 1.) NOPIC  USR 
-LIBSCODE 00000011 ¢ 17.) 02 ¢ 2.) PIC USR 

foes eenwree nor ces see nese wee eS 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 00: 00:00.08 00:00:00.80 
Command processing 117 00:00:00.33 Be 8 0g +82 
Pass 1 122 00:00:00.84 00:00:05.76 
Symbol table sort 0 00:00: 8°92 00:00:00.19 
Pass 2 41 00:00: 68 bs Soo 
Symbol table output $ 00:00:00. § 86:60:55" 
Psect synopsis output OF 80: 0.0 0:00:90.31 
Cross-reference output ! 00:00:00.00 BR 8 99-08 
Assembler run totals 31 0C:00:01.56 00:00:11.6 


The working set Limit was 1050 
5049 bytes (10 pages) of virtua 
There were 10 pages of symbol table space allocated to hold 
155 source Lines were read in Pass 1, producing 12 object records in Pass 
9 pages of virtual memory were used to define 8 macros. 


Gooowescseesoesccececocccon$ 


H Macro Library statistics : 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 5 
131 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 


memory were used to buffer the intermediate code. 
71 non-local i 0 local symbols. 


22 
o 


OSHR NO 
SHR 
SHR 


XE 
XE 
XE 


I 


Vv 
8 


04-00 
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NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBCALLG/OBJ=0BJ$:LIBCALLG MSRC$:LIBCALLG/UPDATE=(ENH$:LIBCALLG) 
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